home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / disk / cdrom / jukeboxprog.lha / prog.jb < prev    next >
Text File  |  1995-01-26  |  2KB  |  86 lines
  1. /* Programmierbares Abspielen                 programmable playing        */
  2. /* Ausgabe des Inhaltsverzeichnisses noch t:jb.toc     contents -> t:jb.toc        */
  3. /* Einlesen der gewählten Tracks aus t:jb.tracks     read t:jb.tracks        */
  4. /* Dieses Skript ruft man am besten über F-Taste auf (siehe JukeBox-Dokumentation)     */
  5. /* da es, wenn alles klappt, kein Ausgabefenster braucht!     needs no output window    */
  6. /* © by Patrick Kursawe 1994                                 */
  7. /* bei Problemen: schreiben an                     in case of problems    */
  8. /* Patrick Kursawe                        write to        */
  9. /* Hohenzollernstr. 69                                    */
  10. /* 45128 Essen                                        */
  11. /* Germany        email kursapbr@rz.ruhr-uni-bochum.de                */
  12.  
  13. stop
  14. options results
  15. toc stem name.
  16. bis = name.0 -1
  17. address "REXX"
  18. if (open(tocfile,"t:jb.toc","W")) then
  19. do
  20.  address
  21.  do i=1 to bis
  22.  toc i
  23.  toadd.0 = ""
  24.  parse var result toadd.i . . title
  25.  address "REXX"
  26.  writech(tocfile,i" "title""x2c(0))
  27.  address
  28.  end
  29.  address "REXX"
  30.  close(tocfile)
  31.  address
  32.  end
  33. else
  34.  do
  35.  say "TOC-Ausgabe versagt!"  /* Output failed*/
  36.  exit
  37. end
  38.  
  39. address command "prog-GUI"
  40.  
  41. address "REXX"
  42.  
  43. if (open(Tracks,"t:jb.tracks","R")) then
  44. do i = 1 
  45. num.i = readln(Tracks)
  46. /*say "NUM."i"="num.i*/
  47. if num.i = "" then leave  
  48. end
  49.  
  50. else
  51. do
  52.  
  53. say "Konnte t:jb.tracks nicht öffnen!"  /* could not open */
  54. exit
  55. end
  56.  
  57. close(Tracks)
  58.  
  59. address
  60.  
  61. do i = 1 while num.i ~= ""
  62.  
  63. /* Play-Routine */
  64.  
  65. spur = num.i
  66. time = toadd.spur
  67. set track spur
  68. "current time"
  69. base = result
  70. addtime base time
  71. stoptime = result
  72. subtime stoptime "00:01:00"    /* change here!*//* Anpassung an Langsamkeit der Steuerung, bei Bedarf ändern!*/
  73. stoptime = result
  74. play
  75. "wait time" stoptime
  76.  
  77. /* Ende derselben */ 
  78.  
  79. end 
  80.  
  81. stop
  82. exit
  83.  
  84.  
  85.  
  86.